home *** CD-ROM | disk | FTP | other *** search
/ The Complete Work of Mahatma Gandhi / The Complete Work of Mahatma Gandhi-CD interactive.iso / pc / ganmac / eb.cst / 00119_Script_video 1 < prev    next >
Text File  |  1999-05-31  |  2KB  |  67 lines
  1. on exitFrame
  2.   --  Video 1
  3.   global gwhere, pv
  4.   --  if pv > 0 then set the movieTime of sprite 6 to gwhere
  5.   
  6.   global mainframe, gvolume, pv, gwhere
  7.   if pv < 2 then 
  8.     set the movieRate of sprite 6 to 1
  9.     set the membernum of sprite 101 to the number of member "stop" of castlib "eb.cst"
  10.   end if
  11.   
  12.   set mainframe to the framelabel
  13.   set the soundEnabled to true
  14.   set the volume of sprite 6 to gvolume
  15.   
  16.   if pv = 0 then set the movieRate of sprite 6 to 1
  17.   
  18.   set gwhere to 0
  19.   set pv to 0
  20. end
  21.  
  22. on enterframe
  23.   global chaspcursor,handcur, gloson, pv
  24.   set handcur to [the number of cast "HC1",the number of cast "HC2"]
  25.   SET THE CURSOR OF SPRITE 98 TO HANDCUR
  26.   SET THE CURSOR OF SPRITE 6 TO -1
  27.   --  CHASPCURSOR HANDCUR,55,57
  28.   CHASPCURSOR HANDCUR,100,102
  29.   CHASPCURSOR HANDCUR,109,120
  30.   global cspname,cspchannel 
  31.   if (gloson=1) and (the visible of window "gloss" = false) then
  32.     set yy to chars(cspname,1,1)
  33.     set the memberNum of sprite 115 to the number of member (yy&"glos") of castLib "eb.cst"
  34.     set gloson to 0
  35.   end if
  36.   
  37.   set xx to chars(cspname,1,1)
  38.   set cspname to xx&"vido"
  39.   set cspchannel to 111
  40.   
  41. end
  42.  
  43.  
  44. on prepareFrame
  45.   set the movieRate of sprite 6 to 0
  46.   set the visible of sprite 105 to false
  47.   set the ink of sprite 105 to 1
  48.   updateStage
  49.   set the visible of sprite 105 to true
  50.   set the ink of sprite 105 to 0
  51.   --  updateStage
  52.   global gwpage, gvolume, gwhere, pv
  53.   
  54.   set the memberNum of sprite 70 to the number of member ("int"&gwpage)
  55.   
  56.   if pv > 0 then 
  57.     set the movieTime of sprite 6 to gwhere 
  58.   else
  59.     set the movieTime of sprite 6 to 0
  60.   end if
  61.   
  62.   
  63.   --  updatestage
  64.   
  65.   
  66.   
  67. end